GraphicsTools: Để sử dụng các hàm trong đây phải khai báo trước khi dùng.

Code Ex : Public ClassDraw As New GraphicsTools

Và ClassDraw.[khai báo tên hàm] để sử dụng

ConvertIconToPicture(ByVal hIcon As Long) As StdPicture	Dùng để chuyễn handle Icon sang StdPicture
DrawEdge(lhDC As Long, X, Y, X1, Y1, edge As Long, Flags As Long)	Vẽ khung cạnh theo các giá trị X,Y,X1,Y1.
DrawGradient(ByVal lHDC As Long, ByVal LeftX As Long, ByVal TopY As Long, ByVal RightX As Long, ByVal BottomY As Long, ByVal clrFirst As OLE_COLOR, ByVal clrSecond As OLE_COLOR, Optional ByVal bVertical As Boolean)	Hàm này vẽ một dãy màu trong một hình chử nhật có tọa độ trái = LeftX, trên = TopY, dài = RightX, cao = BottomY Dảy màu từ clrFirst trãi dài đến clrSecond,bVertical = True thì nó vẽ theo chiều từ trên xuống,ngược lại là từ trái qua.
DrawImage(lHDC As Long, lPicture As StdPicture, X As Long, Y As Long, SizeW As Long, SizeH As Long, Optional lBlend As Integer = 100, Optional bTransparent As Boolean = False, Optional ColorTransparent As Long = vbWhite) As Boolean	Vẽ một picture lên hDC của Object tại tọa độ (X,Y) có chiều dài = SizeW ,chiều cao = SizeH lBlend là giá trị mờ của ảnh. bTransparent = True thì sẽ tách màu ColorTransparent ra khỏi picture.
DrawLine(lHDC As Long, X, Y, x1, y1, lColor As OLE_COLOR, Optional lWidth As Long = 1)	Vẽ một đường thẳng theo các giá trị X,Y,X1,Y1 và lWidth là đường kính của đường thẳng
DrawPixel(lHDC As Long, X, Y, lColor As OLE_COLOR)	Vẽ một điểm (giống SetPixel)
DrawRoundSquare(lHDC As Long, X, Y, x1, y1, lColor As OLE_COLOR)	Vẽ một hình chử nhật. Bo tròn 4 cạnh của hình chử nhật đó
DrawSquare(lHDC As Long, X, Y, x1 As Single, y1 As Single, lColor As OLE_COLOR, Optional lFillColor As Boolean = False)	Vẽ một hình vuông.lFillColor = True thì sẽ tô kính hình vuông đó.
DrawThemes(lClass As String, lHWnd As Long, lhDC As Long, X As Long, Y As Long, x1 As Long, y1 As Long, lPart As Long, lState As Long) As Boolean	Vẽ giao diện của windows lên một DC cho trước
DrawVistaBar(lhDC As Long, X As Long, Y As Long, x1 As Long, y1 As Long, btColor As OLE_COLOR, State As Integer)	Vẽ thanh ngang theo kiểu giống Vista
DrawText(hdc As Long, Caption As String, X As Long, Y As Long, X1 As Long, Y1 As Long, [lFormat As Long]) As Long	Vẽ chữ.
DrawTextSupport(lHDC As Long, lText As String, lfont As StdFont, X, Y, x1, y1, lColor As OLE_COLOR, Optional lGraytext As Boolean = False, Optional lDegrees As Integer = 0, Optional lFormat As Long = &H0)	Vẽ chữ.Trong đó : lhDC : hDC của đối tượng muốn vẽ lên. lText : nội dung muốn vẽ lFont : Font chữ X,Y,X1,Y1 là các tọa độ của nơi cần vẽ lColor : màu để vẽ lGraytext : Vẽ chử Disabled lDegees : Độ soay của chử lFormat : định dạng kiểu vẽ chữ, Xem : Public Enum DrawTextStyles DT_LEFT = &H0 DT_TOP = &H0 DT_CENTER = &H1 DT_RIGHT = &H2 DT_VCENTER = &H4 DT_BOTTOM = &H8 DT_WORDBREAK = &H10 DT_SINGLELINE = &H20 DT_EXPANDTABS = &H40 DT_TABSTOP = &H80 DT_NOCLIP = &H100 DT_EXTERNALLEADING = &H200 DT_CALCRECT = &H400 DT_NOPREFIX = &H800 DT_INTERNAL = &H1000 DT_EDITCONTROL = &H2000 DT_PATH_ELLIPSIS = &H4000 DT_END_ELLIPSIS = &H8000 DT_MODIFYSTRING = &H10000 DT_RTLREADING = &H20000 DT_WORD_ELLIPSIS = &H40000 End Enum
ColorToRGB(vColor As OLE_COLOR, Optional cRed As Long = 0, Optional cGreen As Long = 0, Optional cBlue As Long = 0, Optional Offset As Long = 0, Optional hPal As Long = 0) As OLE_COLOR	Chuyễn đỗi màu có nhiều lựa chọn. cRed độ đỏ,cGreen độ xanh,cBlue độ xanh da trời của màu. Offset độ sáng tối của màu. hPal : Handle Palette (cán của bảng màu)
TranslateColors(vColor As OLE_COLOR, Optional hPal As Long = 0) As Long	Chuyễn màu từ dạng OLE_COLOR sang Long. hPal như hàm trên.
DroperFileImage(lDragDrop As DataObject) As Boolean	Kiễm tra xem Drop có phải là image file không.
TileDC(hdcTo As Long, X As Long, Y As Long, Width As Long, Height As Long, hdcSrc As Long, srcwidth As Long, srcheight As Long)	Lát một Device Context đầy một Device context khác với các thông số đã cho.
TilehBitmap(lhDC As Long, hBitmap As Long, X As Long, Y As Long, X1 As Long, Y1 As Long)	Lát một hBitmap đầy một device context với các thông số đã cho.
TilePicture(lhDC As Long, sPicture As StdPicture, X As Long, Y As Long, X1 As Long, Y1 As Long)	Lát một Picture đầy một device context với các thông số đã cho.
DrawPicture(ByVal lHDC As Long, ByVal lPicture As StdPicture, ByVal X As Long, ByVal Y As Long, ByVal sizeW As Long, ByVal SizeH As Long, ByVal imgW As Long, ByVal imgH As Long)	Vẽ một ảnh (StdPicture) có thể co dãn tùy kích thước ta định (X,Y,sizeW,sizeH), imgW và imgH là chiều dài-rộng của ảnh